home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / bud review (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.2 KB  |  318 lines
  1. 100 GOTO380
  2. 110 OPEN2,8,2,"0:BUDGET DATA 2,S,R"
  3. 120 FORTY=1TO192
  4. 130 INPUT#2,Y$(TY)
  5. 140 INPUT#2,Y(TY)
  6. 150 NEXTTY
  7. 160 FORTY=1TO192
  8. 170 INPUT#2,H$(TY)
  9. 180 INPUT#2,H(TY)
  10. 190 NEXTTY
  11. 200 INPUT#2,GT$
  12. 210 FORTY=1TO12
  13. 220 INPUT#2,YM$(TY)
  14. 230 INPUT#2,YM(TY)
  15. 240 NEXTTY
  16. 250 FORTY=1TO12
  17. 260 INPUT#2,HM$(TY)
  18. 270 INPUT#2,HM(TY)
  19. 280 NEXTTY
  20. 290 FORTY=1TO16
  21. 300 INPUT#2,YS$(TY)
  22. 310 INPUT#2,YS(TY)
  23. 320 NEXTTY
  24. 330 FORTY=1TO16
  25. 340 INPUT#2,HS$(TY)
  26. 350 INPUT#2,HS(TY)
  27. 360 NEXTTY:CLOSE2
  28. 370 RETURN
  29. 380 IFAM$=MID$(MT$(1),2,3)ANDAM=0THEN400
  30. 390 GOSUB110:GOTO520
  31. 400 FORP=1TO16:YS$(P)="0000":NEXTP
  32. 410 FORP=1TO12:YM$(P)="0000":NEXTP
  33. 420 FORER=1TO(12*16):IFY$(ER)="000"THENY$(ER)="---":NEXTER
  34. 430 FORTY=1TO16
  35. 440 SR$(TY)=SS(TY):SR$(TY)=SS$(TY)
  36. 450 SS$(TY)=SU(TY):SS$(TY)=SU$(TY)
  37. 460 SU$(TY)=ST(TY):SU$(TY)=ST$(TY)
  38. 470 NEXTTY:FORTY=1TO12
  39. 480 BA(TY)=BB(TY):BA$(TY)=BB$(TY)
  40. 490 BB(TY)=BC(TY):BB$(TY)=BC$(TY)
  41. 500 BC(TY)=MT(TY):BC$(TY)=MT$(TY)
  42. 510 NEXTTY:AM$="+"
  43. 520 LA$="":LB$=" ":LC$="  ":LD$="   ":LE$="    "
  44. 530 LF$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LK$=""
  45. 540 FORTY=1TO16:ST$(TY)=YS$(TY):NEXTTY
  46. 550 FORTY=1TO12:MT$(TY)=YM$(TY):NEXTTY
  47. 560 IFFR=1THENLO=1:LOAD"BUDGET CALC",8,1
  48. 570 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  49. 580 PRINT"[164][164][164][164]"
  50. 590 PRINT"REVIEW SUBJECTS.................... F1 [146]"
  51. 600 PRINT"[164][164][164][164]"
  52. 610 PRINT"REVIEW MONTHS...................... F3 [146]"
  53. 620 PRINT"[164][164][164][164]"
  54. 630 PRINT"REVIEW TOTALS GRAPHICALLY.......... F5 [146]"
  55. 640 PRINT"[164][164][164][164]"
  56. 650 PRINT"REVIEW PROFIT OR LOSS.............. F7 [146]"
  57. 660 PRINT"[164][164][164][164][164][164][164][164][164][164][164]";
  58. 670 PRINT"RETURN TO THE SPREADSHEET.... SPACE BAR [146]"
  59. 680 PRINT"WHAT IS YOUR OPTION ?"
  60. 690 GETQU$:IFQU$=""THEN690
  61. 700 IFQU$="[133]"ORQU$="[134]"ORQU$="[135]"ORQU$="[136]"ORQU$=" "THEN720
  62. 710 GOTO690
  63. 720 PRINT"[145]             PLEASE WAIT"
  64. 730 IFQU$="[133]"THEN790
  65. 740 IFQU$="[134]"THEN1190
  66. 750 IFQU$="[135]"THEN1520
  67. 760 IFQU$="[136]"THEN2810
  68. 770 IFQU$=" "THENLO=1:LOAD"BUDGET CALC",8,1
  69. 780 GOTO690
  70. 790 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  71. 800 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3
  72. 810 PRINT""
  73. 820 PRINTS$(1);LA$;BA$(1);LC$;BB$(1);LC$;BC$(1);LC$;YS$(1):PRINT
  74. 830 PRINTS$(2);LA$;BA$(2);LC$;BB$(2);LC$;BC$(2);LC$;YS$(2):PRINT
  75. 840 PRINTS$(3);LA$;BA$(3);LC$;BB$(3);LC$;BC$(3);LC$;YS$(3):PRINT
  76. 850 PRINTS$(4);LA$;BA$(4);LC$;BB$(4);LC$;BC$(4);LC$;YS$(4):PRINT
  77. 860 PRINTS$(5);LA$;BA$(5);LC$;BB$(5);LC$;BC$(5);LC$;YS$(5):PRINT
  78. 870 PRINTS$(6);LA$;BA$(6);LC$;BB$(6);LC$;BC$(6);LC$;YS$(6):PRINT
  79. 880 PRINTS$(7);LA$;BA$(7);LC$;BB$(7);LC$;BC$(7);LC$;YS$(7):PRINT
  80. 890 PRINTS$(8);LA$;BA$(8);LC$;BB$(8);LC$;BC$(8);LC$;YS$(8):PRINT
  81. 900 PRINT"  USE JOYSTICK TO VIEW OTHER SUBJECTS"
  82. 910 PRINT""
  83. 920 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
  84. 930 IF(SDAND1)THEN920
  85. 940 IF(SDAND2)THEN990
  86. 950 IF(SDAND4)THEN920
  87. 960 IF(SDAND8)THEN920
  88. 970 IFFO=0THEN570
  89. 980 SD=0:GOTO920
  90. 990 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  91. 1000 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3
  92. 1010 PRINT""
  93. 1020 PRINTS$(9);LA$;BA$(9);LC$;BB$(9);LC$;BC$(9);LC$;YS$(9):PRINT
  94. 1030 PRINTS$(10);LA$;BA$(10);LC$;BB$(10);LC$;BC$(10);LC$;YS$(10):PRINT
  95. 1040 PRINTS$(11);LA$;BA$(11);LC$;BB$(11);LC$;BC$(11);LC$;YS$(11):PRINT
  96. 1050 PRINTS$(12);LA$;BA$(12);LC$;BB$(12);LC$;BC$(12);LC$;YS$(12):PRINT
  97. 1060 PRINTS$(13);LA$;BA$(13);LC$;BB$(13);LC$;BC$(13);LC$;YS$(13):PRINT
  98. 1070 PRINTS$(14);LA$;BA$(14);LC$;BB$(14);LC$;BC$(14);LC$;YS$(14):PRINT
  99. 1080 PRINTS$(15);LA$;BA$(15);LC$;BB$(15);LC$;BC$(15);LC$;YS$(15):PRINT
  100. 1090 PRINTS$(16);LA$;BA$(16);LC$;BB$(16);LC$;BC$(16);LC$;YS$(16):PRINT
  101. 1100 PRINT"  USE JOYSTICK TO VIEW OTHER SUBJECTS"
  102. 1110 PRINT""
  103. 1120 F=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
  104. 1130 IF(SDAND1)THEN790
  105. 1140 IF(SDAND2)THEN1120
  106. 1150 IF(SDAND4)THEN1120
  107. 1160 IF(SDAND8)THEN1120
  108. 1170 IFFO=0THEN570
  109. 1180 SD=0:GOTO1120
  110. 1190 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  111. 1200 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3
  112. 1210 PRINT""
  113. 1220 PRINTM$(1);"";LA$;SR$(1);LC$;SS$(1);LC$;SU$(1);LC$;YM$(1)
  114. 1230 PRINT"";M$(2);"";LA$;SR$(2);LC$;SS$(2);LC$;SU$(2);LC$;YM$(2)
  115. 1240 PRINT"";M$(3);"";LA$;SR$(3);LC$;SS$(3);LC$;SU$(3);LC$;YM$(3)
  116. 1250 PRINT"";M$(4);"";LA$;SR$(4);LC$;SS$(4);LC$;SU$(4);LC$;YM$(4)
  117. 1260 PRINT"";M$(5);"";LA$;SR$(5);LC$;SS$(5);LC$;SU$(5);LC$;YM$(5)
  118. 1270 PRINT"";M$(6);"";LA$;SR$(6);LC$;SS$(6);LC$;SU$(6);LC$;YM$(6)
  119. 1280 PRINT" USE JOYSTICK TO VIEW FOLLOWING MONTHS":FORTY=1TO100:GETTU$:NEXTTY
  120. 1290 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
  121. 1300 IF(SDAND1)THEN1290
  122. 1310 IF(SDAND2)THEN1360
  123. 1320 IF(SDAND4)THEN1290
  124. 1330 IF(SDAND8)THEN1290
  125. 1340 IFFO=0THEN570
  126. 1350 SD=0:GOTO1290
  127. 1360 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  128. 1370 PRINT"";CM;LB$;CM+1;LB$;CM+2;LB$;CM+3:PRINT""
  129. 1380 PRINT"";M$(7);"";LA$;SR$(7);LC$;SS$(7);LC$;SU$(7);LC$;YM$(7)
  130. 1390 PRINT"";M$(8);"";LA$;SR$(8);LC$;SS$(8);LC$;SU$(8);LC$;YM$(8)
  131. 1400 PRINT"";M$(9);"";LA$;SR$(9);LC$;SS$(9);LC$;SU$(9);LC$;YM$(9)
  132. 1410 PRINT"";M$(10);"";LA$;SR$(10);LC$;SS$(10);LC$;SU$(10);LC$;YM$(10)
  133. 1420 PRINT"";M$(12);"";LA$;SR$(12);LC$;SS$(12);LC$;SU$(12);LC$;YM$(12)
  134. 1430 PRINT" USE JOYSTICK TO VIEW FOLLOWING MONTHS"
  135. 1440 PRINT"[145][145][145][145][145][145][145]";M$(11);"";LA$;SR$(11);LC$;SS$(11);LC$;SU$(11);LC$;YM$(11)
  136. 1450 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
  137. 1460 IF(SDAND1)THEN1190
  138. 1470 IF(SDAND2)THEN1450
  139. 1480 IF(SDAND4)THEN1450
  140. 1490 IF(SDAND8)THEN1450
  141. 1500 IFFO=0THEN570
  142. 1510 SD=0:GOTO1450
  143. 1520 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  144. 1530 IFGT>4000THEN2160
  145. 1540 IFGT(1)>4000THEN2160
  146. 1550 IFGT(2)>4000THEN2160
  147. 1560 IFGT(3)>4000THEN2160
  148. 1570 PRINT"";LA$;CM;LB$;CM+1;LB$;CM+2;LB$;CM+3
  149. 1580 PRINT"4000 [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  150. 1590 PRINT"[167]      [221]      [221]      [221]      [165]"
  151. 1600 PRINT"[167]      [221]      [221]      [221]      [165]"
  152. 1610 PRINT"[167]      [221]      [221]      [221]      [165]"
  153. 1620 PRINT"3000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  154. 1630 PRINT"[167]      [221]      [221]      [221]      [165]"
  155. 1640 PRINT"[167]      [221]      [221]      [221]      [165]"
  156. 1650 PRINT"[167]      [221]      [221]      [221]      [165]"
  157. 1660 PRINT"2000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  158. 1670 PRINT"[167]      [221]      [221]      [221]      [165]"
  159. 1680 PRINT"[167]      [221]      [221]      [221]      [165]"
  160. 1690 PRINT"[167]      [221]      [221]      [221]      [165]"
  161. 1700 PRINT"1000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  162. 1710 PRINT"[167]      [221]      [221]      [221]      [165]"
  163. 1720 PRINT"[167]      [221]      [221]      [221]      [165]"
  164. 1730 PRINT"[167]      [221]      [221]      [221]      [165]"
  165. 1740 PRINT"   0[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  166. 1750 GI=1:GH=7:GOSUB1790
  167. 1760 GI=2:GH=14:GOSUB1790
  168. 1770 GI=3:GH=21:GOSUB1790
  169. 1780 GT$=STR$(GT):LE$=LEFT$(GT$,2):GT$(4)=GT$:GI=4:GH=28:GOSUB1830:GOTO2040
  170. 1790 GT(4)=GT
  171. 1800 FORA=1TO4
  172. 1810 GT$(A)=STR$(GT(A))
  173. 1820 NEXTA
  174. 1830 LE$=LEFT$(GT$(GI),2)
  175. 1840 PRINT""TAB(GH);
  176. 1850 LE=VAL(LE$):IFLE=0THEN1900
  177. 1860 FORDE=1TOLE
  178. 1870 PRINT"    [145][157][157][157][157]    [145][157][157][157][157]";
  179. 1880 PRINT"    [145][157][157][157][157]    [145][157][157][157][157]";
  180. 1890 NEXTDE
  181. 1900 LE$=MID$(GT$(GI),3,1)
  182. 1910 LE=VAL(LE$):IFLE=0THEN1990
  183. 1920 IFLE=1THENPRINT"[146][185][185][185][185]":GOTO1990
  184. 1930 IFLE=2THENPRINT"[183][183][183][183]":GOTO1990
  185. 1940 IFLE=3THENPRINT"    [145][157][157][157][157][146][175][175][175][175][146]":GOTO1990
  186. 1950 IFLE=4THENPRINT"    [145][157][157][157][157][183][183][183][183][146]":GOTO1990
  187. 1960 IFLE=5THENPRINT"    [145][157][157][157][157]    [146]":GOTO1990
  188. 1970 IFLE=6THENPRINT"    [145][157][157][157][157]    [146][145][157][157][157][157][146][185][185][185][185]":GOTO1990
  189. 1980 GOTO2000
  190. 1990 RETURN
  191. 2000 IFLE=7THENPRINT"    [145][157][157][157][157]    [146][145][157][157][157][157][183][183][183][183]":GOTO1990
  192. 2010 IFLE=8THENPRINT"    [145][157][157][157][157]    [146][145][157][157][157][157]    [146][145][157][157][157][157][146][185][185][185][185]":GOTO1990
  193. 2020 IFLE=9THENPRINT"    [145][157][157][157][157]    [146][145][157][157][157][157]    [146][145][157][157][157][157][183][183][183][183]":GOTO1990
  194. 2030 GOTO1990
  195. 2040 PRINT"[146]:-  GRAND TOTALS[146]"
  196. 2050 PRINT"";
  197. 2060 PRINT""GT(1)
  198. 2070 PRINT"";
  199. 2080 PRINT"";GT(2)
  200. 2090 PRINT"";
  201. 2100 PRINT"";GT(3)
  202. 2110 PRINT"";
  203. 2120 PRINT"";GT
  204. 2130 PRINT"        "
  205. 2140 PRINT"":GT$=MID$(GT$,2):GT$=""+GT$
  206. 2150 GOTO2740
  207. 2160 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  208. 2170 PRINT"";LA$;CM;LB$;CM+1;LB$;CM+2;LB$;CM+3
  209. 2180 PRINT"9999 [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] "
  210. 2190 PRINT"[167]      [221]      [221]      [221]      [165]"
  211. 2200 PRINT"[167]      [221]      [221]      [221]      [165]"
  212. 2210 PRINT"[167]      [221]      [221]      [221]      [165]"
  213. 2220 PRINT"8000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  214. 2230 PRINT"[167]      [221]      [221]      [221]      [165]"
  215. 2240 PRINT"[167]      [221]      [221]      [221]      [165]"
  216. 2250 PRINT"[167]      [221]      [221]      [221]      [165]"
  217. 2260 PRINT"6000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  218. 2270 PRINT"[167]      [221]      [221]      [221]      [165]"
  219. 2280 PRINT"[167]      [221]      [221]      [221]      [165]"
  220. 2290 PRINT"[167]      [221]      [221]      [221]      [165]"
  221. 2300 PRINT"4000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  222. 2310 PRINT"[167]      [221]      [221]      [221]      [165]"
  223. 2320 PRINT"[167]      [221]      [221]      [221]      [165]"
  224. 2330 PRINT"[167]      [221]      [221]      [221]      [165]"
  225. 2340 PRINT"2000[167][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][221][164][164][164][164][164][164][165]"
  226. 2350 PRINT"    [167]      [221]      [221][160]     [221]      [165]"
  227. 2360 PRINT"     [167]      [221]      [221]      [221]      [165]"
  228. 2370 PRINT"     [167]      [221]      [221][160]     [221]      [165]"
  229. 2380 PRINT"    0[167]      [221]      [221]      [221]      [165]"
  230. 2390 GI=1:GH=7:GOSUB2420:GI=2:GH=14:GOSUB2420:GI=3:GH=21:GOSUB2420
  231. 2400 GT$=STR$(GT):LE$=LEFT$(GT$,2)
  232. 2410 GT$(4)=GT$:GI=4:GH=28:GOSUB2430:GOTO2630
  233. 2420 GT(4)=GT:FORA=1TO4:GT$(A)=STR$(GT(A)):NEXTA
  234. 2430 LE$=LEFT$(GT$(GI),2)
  235. 2440 PRINT""TAB(GH);
  236. 2450 LE=VAL(LE$):IFLE=0THEN2490
  237. 2460 FORDE=1TOLE
  238. 2470 PRINT"    [146][145][157][157][157][157]    [146][145][157][157][157][157]";
  239. 2480 NEXTDE
  240. 2490 LE$=MID$(GT$(GI),3,1)
  241. 2500 LE=VAL(LE$):IFLE=0THEN2580
  242. 2510 IFLE=1THENPRINT"[185][185][185][185]":GOTO2580
  243. 2520 IFLE=2THENPRINT"[162][162][162][162]":GOTO2580
  244. 2530 IFLE=3THENPRINT"[184][184][184][184][146]":GOTO2580
  245. 2540 IFLE=4THENPRINT"[183][183][183][183][146]":GOTO2580
  246. 2550 IFLE=5THENPRINT"[163][163][163][163][146]":GOTO2580
  247. 2560 IFLE=6THENPRINT"    [146]":GOTO2580
  248. 2570 GOTO2590
  249. 2580 RETURN
  250. 2590 IFLE=7THENPRINT"    [145][157][157][157][157][146][164][164][164][164]":GOTO2580
  251. 2600 IFLE=8THENPRINT"    [145][157][157][157][157][146][175][175][175][175]":GOTO2580
  252. 2610 IFLE=9THENPRINT"    [145][157][157][157][157][146][185][185][185][185]":GOTO2580
  253. 2620 GOTO2580
  254. 2630 PRINT"[146]:-  GRAND TOTALS[146]"
  255. 2640 PRINT"";
  256. 2650 PRINT""GT(1)
  257. 2660 PRINT"";
  258. 2670 PRINT"";GT(2)
  259. 2680 PRINT"";
  260. 2690 PRINT"";GT(3)
  261. 2700 PRINT"";
  262. 2710 PRINT"";GT
  263. 2720 PRINT"        "
  264. 2730 PRINT"":GT$=MID$(GT$,2):GT$=""+GT$
  265. 2740 FO=16:SD=NOTPEEK(56320)AND15:FO=PEEK(56320)AND16
  266. 2750 IF(SDAND1)THEN2740
  267. 2760 IF(SDAND2)THEN2740
  268. 2770 IF(SDAND4)THEN2740
  269. 2780 IF(SDAND8)THEN2740
  270. 2790 IFFO=0THEN570
  271. 2800 SD=0:GOTO2740
  272. 2810 PRINT"[147]REVIEW FIGURES[157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163] [163][163][163][163][163][163][163]"
  273. 2820 FORUI=1TO12:A$=LEFT$(M$(UI),2)
  274. 2830 PRINTTAB(11+UI);A$;:NEXTUI:PRINT"    ";
  275. 2840 FORAF=1TO16:PRINTS$(AF);"[207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][208] [207][208]":NEXTAF
  276. 2850 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [183][183]"
  277. 2860 PRINTTAB(12);"[207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][183][207][208] [207][208]"
  278. 2870 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [183][183]"
  279. 2880 PRINT" [146][158]=LOSS  (ACTUAL IS MORE THAN ESTIMATED)"
  280. 2890 PRINT" [146][158]=PROFIT(ACTUAL IS LESS THAN ESTIMATED)"
  281. 2900 FORW=1TO192
  282. 2910 V(W)=H(W)-Y(W):IFV(W)>0THENV(W)=1:GOTO2940
  283. 2920 IFV(W)<0THENV(W)=-1:GOTO2940
  284. 2930 IFV(W)=0THENV(W)=0:GOTO2940
  285. 2940 NEXTW:SC=10:MP=0:PRINT"";:GOTO3030
  286. 2950 FORER=1TO12
  287. 2960 MP=MP+1:IFV(MP)=1THEN2990
  288. 2970 IFV(MP)=-1THEN3000
  289. 2980 IFV(MP)=0THEN3010
  290. 2990 PRINTTAB(SC+(ER*2))"  [146][158]";:GOTO3020
  291. 3000 PRINTTAB(SC+(ER*2))"  [146][158]";:GOTO3020
  292. 3010 PRINTTAB(SC+(ER*2))"[146][158]";
  293. 3020 NEXTER:RETURN
  294. 3030 FORZZ=1TO16:PRINT"":GOSUB2950:NEXTZZ
  295. 3040 MP=0:PRINT""
  296. 3050 MP=MP+1:IFMP=17THEN3120
  297. 3060 IO=HS(MP)-YS(MP):IFIO>0THENIO=1:GOTO3110
  298. 3070 IFIO<0THENIO=-1:GOTO3100
  299. 3080 IFIO=0THENIO=0:GOTO3090
  300. 3090 PRINTTAB(37)"[146]":GOTO3050
  301. 3100 PRINTTAB(37)"  [146]":GOTO3050
  302. 3110 PRINTTAB(37)"  [146]":GOTO3050
  303. 3120 MP=0:PRINT""
  304. 3130 MP=MP+1:IFMP=13THEN3200
  305. 3140 IO=HM(MP)-YM(MP):IFIO>0THENIO=1:GOTO3190
  306. 3150 IFIO<0THENIO=-1:GOTO3180
  307. 3160 IFIO=0THENIO=0:GOTO3170
  308. 3170 PRINTTAB(10+(MP*2))"[146]";:GOTO3130
  309. 3180 PRINTTAB(10+(MP*2))"  [146]";:GOTO3130
  310. 3190 PRINTTAB(10+(MP*2))"  [146]";:GOTO3130
  311. 3200 PRINT""
  312. 3210 IFGH=GTTHENPRINTTAB(37)"[146]":GOTO3240
  313. 3220 IFGH>GTTHENPRINTTAB(37)"  [146]":GOTO3240
  314. 3230 IFGH<GTTHENPRINTTAB(37)"  [146]":GOTO3240
  315. 3240 PRINT"[158]";:FO=PEEK(56320)AND16
  316. 3250 IFFO=0THEN570
  317. 3260 GOTO3240
  318.